home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 33
/
PCGamer33_OddworldAbesExoddus_CD2.iso
/
Desafios
/
Driver Editor
/
DriverMission.exe
/
0
/
RCDATA
/
TFRMMAP
/
TFRMMAP.txt
< prev
Wrap
Text File
|
1999-11-12
|
34KB
|
956 lines
object frmMap: TfrmMap
Left = 303
Top = 415
Width = 657
Height = 566
Caption = 'Positions Manager'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object spltMap: TSplitter
Left = 536
Top = 0
Width = 3
Height = 489
Cursor = crHSplit
Align = alRight
end
object sbMap: TStatusBar
Left = 0
Top = 520
Width = 649
Height = 19
Panels = <>
SimplePanel = True
end
object pnlMapBot: TPanel
Left = 0
Top = 489
Width = 649
Height = 31
Align = alBottom
TabOrder = 1
OnMouseMove = GlobalMove
object sbZoomOut: TSpeedButton
Left = 187
Top = 3
Width = 25
Height = 25
Hint = 'Zoom Out'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
333337F3333337F333333078F8F870333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbZoomOutClick
end
object sbZoomIn: TSpeedButton
Left = 155
Top = 3
Width = 25
Height = 25
Hint = 'Zoom In'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbZoomInClick
end
object sbGoto: TSpeedButton
Left = 232
Top = 3
Width = 25
Height = 25
Hint = 'Go to current position'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
333333777777777F33333330B00000003333337F7777777F3333333000000000
333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
333333333377F7F33333333333330F03333333333337F7F33333333333330B03
3333333333373733333333333333303333333333333373333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbGotoClick
end
object pnlMapBotRight: TPanel
Left = 362
Top = 1
Width = 286
Height = 29
Align = alRight
BevelOuter = bvNone
TabOrder = 0
OnMouseMove = GlobalMove
object btnClose: TBitBtn
Left = 211
Top = 2
Width = 75
Height = 25
Caption = 'Cl&ose'
ModalResult = 1
TabOrder = 0
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object btnCancel: TBitBtn
Left = 2
Top = 2
Width = 75
Height = 25
Cancel = True
Caption = '&Cancel'
TabOrder = 1
OnClick = btnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object btnSave: TBitBtn
Left = 85
Top = 2
Width = 75
Height = 25
Caption = '&Apply'
Default = True
TabOrder = 2
OnClick = btnSaveClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object pnlPosMap: TPanel
Left = 1
Top = 1
Width = 144
Height = 29
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
OnMouseMove = GlobalMove
object lblPos: TLabel
Left = 8
Top = 8
Width = 13
Height = 16
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end
end
object pnlMapRight: TPanel
Left = 539
Top = 0
Width = 110
Height = 489
Align = alRight
TabOrder = 2
OnMouseDown = SelectPosition
object pgcPosition: TPageControl
Left = 1
Top = 1
Width = 108
Height = 439
ActivePage = tsCivCar
Align = alClient
MultiLine = True
TabOrder = 0
OnChange = pgcPositionChange
object tsPlayer: TTabSheet
Caption = 'Player'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseMove = GlobalMove
object angPlayer: TAngle
Left = 16
Top = 84
Width = 64
Height = 68
Caption = 'Angle'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Angle = 0
OnChange = angPlayerChange
end
object Panel3: TPanel
Left = 1
Top = 14
Width = 98
Height = 44
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clBlack
TabOrder = 1
object imgPlayer: TImage
Left = 1
Top = 1
Width = 96
Height = 42
Stretch = True
OnMouseMove = GlobalMove
end
end
end
object tsTarget: TTabSheet
Caption = 'Target'
OnMouseMove = GlobalMove
object Panel2: TPanel
Left = 1
Top = 14
Width = 98
Height = 44
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'Panel2'
Color = clBlack
TabOrder = 0
object imgTarget: TImage
Left = 1
Top = 1
Width = 96
Height = 42
Picture.Data = {<image001.bmp>}
OnMouseMove = GlobalMove
end
end
object rdTarget: TRadius
Left = 6
Top = 80
Width = 89
Height = 99
Hint = 'Distance at which Target is reached (1500 is normal)'
Caption = 'Radius'
Color = clYellow
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Radius = 0
OnChange = rdTargetChange
end
end
object tsCops: TTabSheet
Caption = 'Cops'
object tlbCops: TListBox
Left = 0
Top = 249
Width = 100
Height = 144
Hint = 'Select a cop'
Align = alClient
ItemHeight = 13
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnClick = tlbCopsClick
OnMouseMove = GlobalMove
end
object pnlCopsFiller: TPanel
Left = 0
Top = 393
Width = 100
Height = 0
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
end
object pnlCopsTop: TPanel
Left = 0
Top = 0
Width = 100
Height = 249
Align = alTop
BevelOuter = bvNone
TabOrder = 2
OnMouseMove = GlobalMove
object sbAddCops: TSpeedButton
Left = 24
Top = 221
Width = 20
Height = 19
Hint = 'Add a Cop'
Anchors = [akRight, akBottom]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333F33338F3E0F333303333
80E338F33338F33338F3E0F33330333380E338F333F8FFF338F3E0F330000033
80E338F33888883338F3E0F33330333380E338F33338F33338F3E0F333303333
80E338F33338333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAddCopsClick
end
object sbDelCops: TSpeedButton
Left = 55
Top = 221
Width = 20
Height = 19
Hint = 'Delete the selected cop'
Anchors = [akRight, akBottom]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F333FFFFF338F3E0F330000033
80E338F33888883338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbDelCopsClick
end
object lblNumCops: TLabel
Left = 4
Top = 187
Width = 44
Height = 13
Caption = 'Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object angCops: TAngle
Left = 16
Top = 84
Width = 64
Height = 68
Caption = 'Angle'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Angle = 0
OnChange = angCopsChange
end
object Panel1: TPanel
Left = 1
Top = 14
Width = 98
Height = 44
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'Panel1'
Color = clBlack
TabOrder = 1
object imgCops: TImage
Left = 1
Top = 1
Width = 96
Height = 42
Picture.Data = {<image002.bmp>}
Stretch = True
OnMouseMove = GlobalMove
end
end
object edtNumCops: TEdit
Left = 58
Top = 183
Width = 25
Height = 21
Hint = 'Number of cops to spawn (default is 1)'
TabOrder = 2
Text = '1'
OnExit = edtNumCopsExit
end
object udNumCops: TUpDown
Left = 83
Top = 183
Width = 15
Height = 21
Associate = edtNumCops
Min = 1
Position = 1
TabOrder = 3
Wrap = False
OnClick = udNumCopsClick
end
end
end
object tsCivCar: TTabSheet
Caption = 'Civil Car'
object pnlCivCarTop: TPanel
Left = 0
Top = 0
Width = 100
Height = 287
Align = alTop
BevelOuter = bvNone
TabOrder = 0
OnMouseMove = GlobalMove
object sbAddCivCar: TSpeedButton
Left = 23
Top = 264
Width = 20
Height = 19
Hint = 'Add a Civil car'
Anchors = [akRight, akBottom]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333F33338F3E0F333303333
80E338F33338F33338F3E0F33330333380E338F333F8FFF338F3E0F330000033
80E338F33888883338F3E0F33330333380E338F33338F33338F3E0F333303333
80E338F33338333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAddCivCarClick
end
object sbDelCivCar: TSpeedButton
Left = 55
Top = 264
Width = 20
Height = 19
Hint = 'Delete the selected civil car'
Anchors = [akRight, akBottom]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F333FFFFF338F3E0F330000033
80E338F33888883338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0F33333333380E338F33333333338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbDelCivCarClick
end
object lblShowCivilCar: TLabel
Left = 8
Top = 88
Width = 88
Height = 13
Caption = 'lblShowCivilCar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object sbCivCarDown: TSpeedButton
Left = 26
Top = 60
Width = 24
Height = 15
Flat = True
Glyph.Data = {
36010000424D36010000000000007600000028000000200000000C0000000100
040000000000C0000000120B0000120B00001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333333FF33333333333330033
33333333333F77F33333333333007033333333333F7737F33333333300777033
3333333F773337FFFFFF33007777700000003F77333337777777007777777777
7770773FF33333FFFFF7330077777000000033773FF337777777333300777033
33333333773FF7F3333333333300703333333333337737F33333333333330033
3333333333337733333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
Spacing = 0
OnClick = sbCivCarDownClick
end
object sbCivCarUp: TSpeedButton
Left = 51
Top = 60
Width = 24
Height = 15
Flat = True
Glyph.Data = {
36010000424D36010000000000007600000028000000200000000C0000000100
040000000000C0000000120B0000120B00001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333307003333333333337F773FF333333333077700
33333FFFFF7F33773FF30000000777770033777777733333773F077777777777
77007FFFFFFF33333F7700000007777700337777777F333F7733333333077700
33333333337F3F77333333333307003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
Spacing = 0
OnClick = sbCivCarUpClick
end
object lblTargetId: TLabel
Left = 0
Top = 232
Width = 53
Height = 13
Caption = 'Target Id'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object angCivCar: TAngle
Left = 16
Top = 148
Width = 64
Height = 68
Caption = 'Angle'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Angle = 0
OnChange = angCivCarChange
end
object udColor: TUpDown
Left = 7
Top = 121
Width = 40
Height = 15
Min = 0
Max = 9
Orientation = udHorizontal
Position = 0
TabOrder = 1
Wrap = False
OnClick = udColorClick
end
object pnlColor: TPanel
Left = 57
Top = 118
Width = 32
Height = 19
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clBlack
TabOrder = 2
object imgColor: TImage
Left = 1
Top = 1
Width = 30
Height = 17
Hint = 'Color'
end
end
object pnlCivCar: TPanel
Left = 2
Top = 14
Width = 98
Height = 44
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clBlack
TabOrder = 3
object imgCivCar: TImage
Left = 1
Top = 1
Width = 96
Height = 42
Hint = 'Civil car'
Stretch = True
OnMouseMove = GlobalMove
end
end
object edtTargetId: TEdit
Left = 58
Top = 229
Width = 25
Height = 21
Hint =
'Target Id used by other commands like Chase,etc.. Default is Ca' +
'r no'
TabOrder = 4
Text = '1'
OnExit = edtTargetIdChange
end
object udTargetId: TUpDown
Left = 83
Top = 229
Width = 15
Height = 21
Associate = edtTargetId
Min = 1
Position = 1
TabOrder = 5
Wrap = False
OnClick = udTargetIdClick
end
end
object pnlCivCarFiller: TPanel
Left = 0
Top = 393
Width = 100
Height = 0
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
end
object tlbCivCar: TListBox
Left = 0
Top = 287
Width = 100
Height = 106
Hint = 'Select a civil car'
Align = alClient
ItemHeight = 13
ParentShowHint = False
ShowHint = False
TabOrder = 2
OnClick = tlbCivCarClick
OnMouseMove = GlobalMove
end
end
end
object pnlAjust: TPanel
Left = 1
Top = 440
Width = 108
Height = 48
Align = alBottom
TabOrder = 1
OnMouseMove = GlobalMove
object sbAjustUp: TSpeedButton
Left = 45
Top = 4
Width = 20
Height = 20
Hint = 'Move current position'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAjustUpClick
end
object sbAjustDown: TSpeedButton
Left = 45
Top = 25
Width = 20
Height = 20
Hint = 'Move current position'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAjustUpClick
end
object sbAjustLeft: TSpeedButton
Left = 23
Top = 16
Width = 20
Height = 20
Hint = 'Move current position'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAjustUpClick
end
object sbAjustRight: TSpeedButton
Left = 67
Top = 16
Width = 20
Height = 20
Hint = 'Move current position'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = False
OnClick = sbAjustUpClick
end
end
end
object pnlMapAllCliet: TPanel
Left = 0
Top = 0
Width = 536
Height = 489
Align = alClient
BevelOuter = bvNone
TabOrder = 3
object scbMap: TScrollBox
Left = 0
Top = 27
Width = 536
Height = 462
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
TabOrder = 0
object imgMap: TImage
Left = 0
Top = 0
Width = 676
Height = 435
Stretch = True
OnMouseDown = SelectPosition
OnMouseMove = GlobalMove
end
object shpPlayer: TShape
Left = 72
Top = 56
Width = 6
Height = 6
Hint = 'Player Position'
Brush.Color = clRed
ParentShowHint = False
Shape = stCircle
ShowHint = False
end
object shpTarget: TShape
Left = 72
Top = 88
Width = 6
Height = 6
Hint = 'Target Position'
Brush.Color = clYellow
ParentShowHint = False
Shape = stCircle
ShowHint = False
end
object shpMarker: TShape
Left = 72
Top = 112
Width = 6
Height = 6
Hint = 'Player Position'
Brush.Color = clOlive
ParentShowHint = False
Shape = stCircle
ShowHint = False
Visible = False
end
end
object pnlMapTop: TPanel
Left = 0
Top = 0
Width = 536
Height = 27
Align = alTop
TabOrder = 1
object lblMapName: TLabel
Left = 15
Top = 6
Width = 29
Height = 13
Caption = 'Map '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object cbMapName: TComboBox
Left = 80
Top = 3
Width = 129
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'cbMapName'
OnClick = cbMapNameClick
end
end
end
object tmMap: TTimer
Enabled = False
Interval = 250
OnTimer = tmMapTimer
Left = 128
Top = 439
end
end